home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / gauge / slidvb25 / slidmdi.frm < prev    next >
Text File  |  1996-01-17  |  3KB  |  121 lines
  1. VERSION 2.00
  2. Begin MDIForm MDIForm1 
  3.    Caption         =   "Slider Custom Control VBX"
  4.    ClientHeight    =   5880
  5.    ClientLeft      =   1530
  6.    ClientTop       =   1725
  7.    ClientWidth     =   6990
  8.    Height          =   6570
  9.    Icon            =   SLIDMDI.FRX:0000
  10.    Left            =   1470
  11.    LinkTopic       =   "MDIForm1"
  12.    Top             =   1095
  13.    Width           =   7110
  14.    WindowState     =   2  'Maximized
  15.    Begin Menu mnu 
  16.       Caption         =   "&Demos"
  17.       Index           =   0
  18.       Begin Menu demo 
  19.          Caption         =   "&BitMaps and Orientation Properties"
  20.          Index           =   0
  21.       End
  22.       Begin Menu demo 
  23.          Caption         =   "&Caption Properties"
  24.          Index           =   1
  25.       End
  26.       Begin Menu demo 
  27.          Caption         =   "&Digital Properties"
  28.          Index           =   2
  29.       End
  30.       Begin Menu demo 
  31.          Caption         =   "&Knob Properties"
  32.          Index           =   3
  33.       End
  34.       Begin Menu demo 
  35.          Caption         =   "&Shape Properties"
  36.          Index           =   4
  37.       End
  38.       Begin Menu demo 
  39.          Caption         =   "&Tic Properties"
  40.          Index           =   5
  41.       End
  42.       Begin Menu demo 
  43.          Caption         =   "&Examples"
  44.          Index           =   6
  45.       End
  46.    End
  47.    Begin Menu mnu 
  48.       Caption         =   "&Help"
  49.       Index           =   1
  50.       Begin Menu help 
  51.          Caption         =   "About Slider"
  52.          Index           =   0
  53.       End
  54.       Begin Menu help 
  55.          Caption         =   "Slider Control"
  56.          Index           =   1
  57.       End
  58.       Begin Menu help 
  59.          Caption         =   "All GMS Controls"
  60.          Index           =   2
  61.       End
  62.    End
  63.    Begin Menu mnu 
  64.       Caption         =   "&Order"
  65.       Index           =   2
  66.    End
  67.    Begin Menu mnu 
  68.       Caption         =   "E&xit"
  69.       Index           =   3
  70.    End
  71. End
  72.  
  73. Sub demo_Click (index As Integer)
  74.  
  75.     Select Case index
  76.         Case 0
  77.             BitmapDemo.Show
  78.         Case 1
  79.             CaptionDemo.Show
  80.         Case 2
  81.             DigitalDemo.Show
  82.         Case 3
  83.             KnobDemo.Show
  84.         Case 4
  85.             ShapeDemo.Show
  86.         Case 5
  87.             TicDemo.Show
  88.         Case 6
  89.             Examples.Show
  90.     End Select
  91.  
  92. End Sub
  93.  
  94. Sub help_Click (index As Integer)
  95.  
  96.     Select Case index
  97.         Case 0 'about
  98.             sabout.Show
  99.         Case 1 'control
  100.             x = Shell("winhelp.exe SLIDER.HLP", 1)
  101.         Case 2 'library
  102.             x = Shell("winhelp.exe INSTRMLB.HLP", 1)
  103.     End Select
  104.  
  105.     
  106. End Sub
  107.  
  108. Sub MDIForm_Load ()
  109.     
  110.     sabout.Show
  111.  
  112. End Sub
  113.  
  114. Sub mnu_Click (index As Integer)
  115.  
  116.     If index = 2 Then x = Shell("winhelp.exe order.HLP", 1)
  117.     If index = 3 Then End
  118.  
  119. End Sub
  120.  
  121.